home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / T-Z / TidBITS4.cpt / TidBITS#41_11-Feb-91 / background_2741.txt < prev    next >
Text File  |  1991-02-11  |  7KB  |  340 lines
  1. -- background: 2741 from stack: in
  2. -- bmap block id: 3239
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Only
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   global scrollFactor
  9.   get the scroll of bg fld "Index"
  10.   put it into scrollFactor
  11.   show bg btn "About"
  12. end closeCard
  13.  
  14. on openCard
  15.   global scrollFactor
  16.   if the short name of this card is "About"
  17.   then
  18.   hide bg btn "About"
  19.   set the scroll of card field "About" to 0
  20. else
  21.   set the scroll of bg fld "Index" to scrollFactor
  22. end if
  23. end openCard
  24.  
  25.  
  26. -- part 1 (field)
  27. -- low flags: 00
  28. -- high flags: 0002
  29. -- rect: left=155 top=22 right=44 bottom=396
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 0
  33. -- font id: 33
  34. -- text size: 14
  35. -- style flags: 256
  36. -- line height: 18
  37. -- part name: Index Name
  38.  
  39.  
  40. -- part 2 (field)
  41. -- low flags: 00
  42. -- high flags: 2007
  43. -- rect: left=155 top=45 right=202 bottom=510
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 0
  47. -- font id: 2
  48. -- text size: 10
  49. -- style flags: 0
  50. -- line height: 13
  51. -- part name: Article
  52.  
  53.  
  54. -- part 3 (field)
  55. -- low flags: 00
  56. -- high flags: 2007
  57. -- rect: left=155 top=203 right=257 bottom=511
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 0
  61. -- font id: 2
  62. -- text size: 10
  63. -- style flags: 0
  64. -- line height: 13
  65. -- part name: References
  66.  
  67.  
  68. -- part 4 (field)
  69. -- low flags: 01
  70. -- high flags: 0007
  71. -- rect: left=3 top=22 right=257 bottom=154
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 0
  75. -- font id: 3
  76. -- text size: 9
  77. -- style flags: 0
  78. -- line height: 12
  79. -- part name: Index
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   set cursor to watch
  83.   lock screen
  84.   markText the clickLoc
  85.   set the scroll of bg field id 2 to 0
  86.   set the scroll of bg field id 3 to 0
  87.   --unlock screen with visual effect zoom in
  88. end mouseUp
  89.  
  90. on markText t1
  91.   if target is empty then exit to HyperCard
  92.   --‚Ä¢‚Ä¢‚Ä¢Figure out what line is selected and find the first subject
  93.   put trunc((item 2 of t1 - top of target + scroll of target) div textHeight of target) + 1 into theLine
  94.   select line theLine of bg field id 4
  95.   get the selectedText
  96.   put it into thisArticle
  97.   find thisArticle in bg field id 1
  98.   click at 1,1
  99. end markText
  100.  
  101.  
  102.  
  103. -- part 5 (field)
  104. -- low flags: 01
  105. -- high flags: 0000
  106. -- rect: left=392 top=25 right=42 bottom=512
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 65535
  110. -- font id: 3
  111. -- text size: 10
  112. -- style flags: 10496
  113. -- line height: 13
  114. -- part name: Date
  115.  
  116.  
  117. -- part 6 (button)
  118. -- low flags: 00
  119. -- high flags: 2000
  120. -- rect: left=0 top=318 right=338 bottom=17
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 21700 / 21700
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: Home
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   lock screen
  132.   go home
  133.   unlock screen with visual effect checkerboard
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 7 (button)
  139. -- low flags: 00
  140. -- high flags: 2000
  141. -- rect: left=205 top=257 right=281 bottom=230
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 3835 / 3835
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Previous
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   lock screen
  153.   go to prev card
  154.   if the short name of this card is "About" then go to prev card
  155.   set the scroll of bg field id 2 to 0
  156.   set the scroll of bg field id 3 to 0
  157.   unlock screen with visual wipe left
  158. end mouseUp
  159.  
  160.  
  161.  
  162. -- part 8 (button)
  163. -- low flags: 00
  164. -- high flags: A004
  165. -- rect: left=3 top=267 right=289 bottom=77
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 0 / 0
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: New Card
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   lock screen
  177.   go to last card
  178.   put bg fld "Date" into oldDate
  179.   doMenu "New Card"
  180.   put oldDate into bg fld "Date"
  181. end mouseUp
  182.  
  183.  
  184.  
  185. -- part 9 (button)
  186. -- low flags: 00
  187. -- high flags: 2000
  188. -- rect: left=231 top=257 right=282 bottom=258
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 29484 / 29484
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: Next
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   lock screen
  200.   go to next card
  201.   if the short name of this card is "About" then go to next card
  202.   set the scroll of bg field id 2 to 0
  203.   set the scroll of bg field id 3 to 0
  204.   unlock screen with visual wipe right
  205. end mouseUp
  206.  
  207.  
  208.  
  209. -- part 10 (button)
  210. -- low flags: 00
  211. -- high flags: A004
  212. -- rect: left=393 top=267 right=289 bottom=453
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 1
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: Find F
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   doMenu "Find..."
  224. end mouseUp
  225.  
  226.  
  227.  
  228. -- part 11 (button)
  229. -- low flags: 00
  230. -- high flags: A004
  231. -- rect: left=455 top=267 right=289 bottom=509
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: Index
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   set cursor to watch
  243.   reIndex
  244. end mouseUp
  245.  
  246.  
  247.  
  248. -- part 12 (button)
  249. -- low flags: 00
  250. -- high flags: A004
  251. -- rect: left=79 top=267 right=289 bottom=166
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 0 / 0
  254. -- text alignment: 1
  255. -- font id: 0
  256. -- text size: 12
  257. -- style flags: 0
  258. -- line height: 16
  259. -- part name: Delete Card
  260. ----- HyperTalk script -----
  261. on mouseUp
  262.   answer "Definitely delete this card?" with "Cancel" or "OK"
  263.   if it is "Cancel" then exit mouseUp
  264.   doMenu "Delete Card"
  265.   if the short name of this card is "About"
  266.   then
  267.   hide bg btn "About"
  268.   go to next card
  269. end if
  270. end mouseUp
  271.  
  272.  
  273.  
  274. -- part 13 (button)
  275. -- low flags: 00
  276. -- high flags: 2000
  277. -- rect: left=0 top=293 right=315 bottom=21
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 26635 / 26635
  280. -- text alignment: 1
  281. -- font id: 0
  282. -- text size: 12
  283. -- style flags: 0
  284. -- line height: 16
  285. -- part name: About
  286. ----- HyperTalk script -----
  287. on mouseUp
  288.   lock screen
  289.   go to card "About"
  290.   unlock screen with visual effect iris open
  291. end mouseUp
  292.  
  293.  
  294.  
  295. -- part 17 (button)
  296. -- low flags: 00
  297. -- high flags: A004
  298. -- rect: left=338 top=267 right=289 bottom=391
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 1
  302. -- font id: 0
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: Merge
  307. ----- HyperTalk script -----
  308. on mouseUp
  309.   if the short name of this stack is "TidBITS Archive"
  310.   then
  311.   answer "Can‚Äôt merge from TidBITS Archive." with "OK"
  312.   exit mouseUp
  313. end if
  314. mergeStacks
  315. end mouseUp
  316.  
  317.  
  318. -- part 18 (button)
  319. -- low flags: 00
  320. -- high flags: 0000
  321. -- rect: left=0 top=0 right=12 bottom=512
  322. -- title width / last selected line: 0
  323. -- icon id / first selected line: 0 / 0
  324. -- text alignment: 1
  325. -- font id: 0
  326. -- text size: 12
  327. -- style flags: 0
  328. -- line height: 16
  329. -- part name: Menubar
  330. ----- HyperTalk script -----
  331. on mouseEnter
  332.   put item 3 of the screenRect into screenWidth
  333.   if screenWidth <= 512 then show menubar
  334. end mouseEnter
  335.  
  336. on mouseLeave
  337.   put item 3 of the screenRect into screenWidth
  338.   if screenWidth <= 512 then hide menubar
  339. end mouseLeave
  340.